home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMBX3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  487b  |  24 lines

  1. Program DemoBoxThree;
  2. {DEMBX3}
  3.  
  4. USES DOS,CRT, totFAST;
  5.  
  6. begin
  7.    with Screen do
  8.    begin
  9.       TitledBox(1,1,80,25,27,31,30,1,' Smart Line Drawing ');
  10.       FillBox(30,7,50,18,27,2);
  11.       SmartVertLine(10,1,25,27,2);
  12.       SmartVertLine(70,1,25,27,1);
  13.       SmartVertLine(40,7,18,27,2);
  14.       SmartHorizLine(1,80,10,27,1);
  15.       SmartHorizLine(1,80,20,27,2);
  16.       SmartHorizLine(30,50,13,27,1);
  17.       repeat until keypressed;
  18.       GotoXY(1,25);
  19.    end;
  20. end.
  21.  
  22.  
  23.  
  24.